home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
MATH
/
MATH2
/
SIGCONST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-05-17
|
1KB
|
17 lines
(*-------------------------------------------------------------------------*)
(* Global constants for significance routines *)
(*-------------------------------------------------------------------------*)
(* WARNING: These are for Turbo-87 only!!!!! *)
(*-------------------------------------------------------------------------*)
CONST
PI = 3.141592653589793 (* Math constant PI *);
Xln2sp = 9.18938533204673E-01 (* LogE( Sqrt( 2 * PI ) ) *);
Rmax = 1.67E+308 (* Maximum flt pt number *);
Rsmall = 4.19E-306 (* Smallest flt pt number *);
Rinf = 1.67E+308 (* Machine "infinity" *);
Zeta = 1.0E-16 (* Approx. machine prec. *);
MaxPrec = 16 (* Max. precision *);
Sqrt2 = 1.4142135623730950 (* Square root of 2 *);
LnTenInv = 0.4342944819032520 (* 1 / LN(10) *);
LnTwo = 0.6931471805599450 (* LN(2) *);